# (decoded with TMPL 11972)
{----------}
Procedure DoSelectAll;
Begin
	if cur^.text <> nil then begin
		TESetSelect (0, maxint, cur^.text);
	end;
End; {DoSelectAll}